﻿Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Seuss.EnterpriseLibrary.DataAccess
Imports Seuss.EnterpriseLibrary.BusinessLogic
Imports System.Web
Imports System.Data

Partial Class Consulta_Do_CursoAsig_Inf
    Inherits System.Web.UI.Page
    Dim nCurGruCodigo As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.QueryString("nCurGruCodigo") Is Nothing Or Request.QueryString("nCurGruCodigo") Is String.Empty Then
            If Session("nCurGruCodigo") Is Nothing Or Session("nCurGruCodigo") Is String.Empty Then
                Response.Redirect("Do_ListaCursAsig.aspx")
            Else
                nCurGruCodigo = Session("nCurGruCodigo")
            End If
        Else
            Session("nCurGruCodigo") = Request.QueryString("nCurGruCodigo")
            nCurGruCodigo = Request.QueryString("nCurGruCodigo")
        End If

        Response.Expires = -1
        Response.AddHeader("Pragma", "no-cache")
        Response.AddHeader("cache-control", "private")
        Response.CacheControl = "no-cache"
        Dim DivContenido As New StringBuilder

        If Not Page.IsPostBack Then
            Dim ldrCurso As New List(Of IDataReader)
            Using ObjPool As New PoolDbCommand()
                Dim ObjUsuario As New DAL_Kiosco(ObjPool.Database)
                ObjPool.AddDbCommand(ObjUsuario.Get_InformacionCurso_By_nCurGruCodigo(nCurGruCodigo), PoolDbCommand.PoolDbCommandResultType.Query)
                ObjPool.Pooling(Nothing, ldrCurso, True)
            End Using
            If ldrCurso(0).Read() Then
                DivContenido.Append("<div class=""listview""><ul>")
                DivContenido.Append("<li><h3>Nombre del curso:</h3><p>" + ldrCurso(0).Item("casidescripcion").ToString + "</p></li>")
                DivContenido.Append("<li><h3>Escuela:</h3><p>" + ldrCurso(0).Item("cUniOrgNombre").ToString + "</p></li>")
                DivContenido.Append("<li><h3>Curriculo:</h3><p>" + ldrCurso(0).Item("cCurDescripcion").ToString + "</p></li>")
                DivContenido.Append("<li><h3>Ciclo:</h3><p>" + ldrCurso(0).Item("CICLO").ToString + "</p></li>")
                DivContenido.Append("<li><h3>Sección:</h3><p>" + ldrCurso(0).Item("Seccion").ToString + "</p></li>")
                DivContenido.Append("<li><h3>Horas Teoria:</h3><p>" + ldrCurso(0).Item("nCurDetHorTeorica").ToString + "</p></li>")
                DivContenido.Append("<li><h3>Horas Practica:</h3><p>" + ldrCurso(0).Item("nCurDetHorPractica").ToString + "</p></li>")
                DivContenido.Append("</ul></div><br/>")
                lnkRegresar_3.HRef = "./DO_CursoAsignado.aspx?nCurGruCodigo=" + nCurGruCodigo
                lnkRegresar_4.HRef = "./DO_CursoAsignado.aspx?nCurGruCodigo=" + nCurGruCodigo
            End If
            Using Seguridad As New BLL_Administracion
                Seguridad.Set_Transaccion_Insert(Nothing, 100401, IdentityUser.UserCode, My.Request.UserHostAddress.ToString, CrearXMLTransaccion("Consulta Pagina Movil", "/Pagina|" + My.Request.Url.Segments(My.Request.Url.Segments.Length - 1).ToString))
            End Using
        End If
        lblcontenido.Text = DivContenido.ToString
    End Sub

End Class